home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / techno2a / frmweb.frm < prev    next >
Text File  |  1999-09-24  |  8KB  |  249 lines
  1. VERSION 5.00
  2. Object = "{48E59290-9880-11CF-9754-00AA00C00908}#1.0#0"; "MSINET.OCX"
  3. Begin VB.Form Frmweb 
  4.    BackColor       =   &H00800000&
  5.    BorderStyle     =   1  'Fixed Single
  6.    Caption         =   "Web Sites to checkout"
  7.    ClientHeight    =   4680
  8.    ClientLeft      =   45
  9.    ClientTop       =   330
  10.    ClientWidth     =   7695
  11.    ClipControls    =   0   'False
  12.    ControlBox      =   0   'False
  13.    LinkTopic       =   "Form3"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   4680
  17.    ScaleWidth      =   7695
  18.    StartUpPosition =   2  'CenterScreen
  19.    Begin VB.CommandButton Command1 
  20.       Height          =   735
  21.       Left            =   480
  22.       Picture         =   "Frmweb.frx":0000
  23.       Style           =   1  'Graphical
  24.       TabIndex        =   3
  25.       Top             =   3720
  26.       Width           =   855
  27.    End
  28.    Begin VB.PictureBox Picture1 
  29.       Height          =   375
  30.       Left            =   0
  31.       ScaleHeight     =   315
  32.       ScaleWidth      =   315
  33.       TabIndex        =   2
  34.       Top             =   0
  35.       Visible         =   0   'False
  36.       Width           =   375
  37.    End
  38.    Begin VB.TextBox Text1 
  39.       Height          =   285
  40.       Left            =   0
  41.       TabIndex        =   1
  42.       Text            =   "Text1"
  43.       Top             =   360
  44.       Visible         =   0   'False
  45.       Width           =   375
  46.    End
  47.    Begin InetCtlsObjects.Inet Inet1 
  48.       Left            =   0
  49.       Top             =   0
  50.       _ExtentX        =   1005
  51.       _ExtentY        =   1005
  52.       _Version        =   393216
  53.    End
  54.    Begin VB.CommandButton CmdDilbert 
  55.       Caption         =   "Load Dilbert"
  56.       Height          =   855
  57.       Left            =   6240
  58.       Picture         =   "Frmweb.frx":08D2
  59.       Style           =   1  'Graphical
  60.       TabIndex        =   0
  61.       Top             =   240
  62.       Width           =   1095
  63.    End
  64.    Begin VB.Label lblDisclaimer 
  65.       Alignment       =   2  'Center
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "More coffee productions"
  68.       BeginProperty Font 
  69.          Name            =   "Gigi"
  70.          Size            =   14.25
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H00004080&
  78.       Height          =   465
  79.       Left            =   4680
  80.       TabIndex        =   11
  81.       Top             =   4200
  82.       Width           =   2895
  83.    End
  84.    Begin VB.Label Label6 
  85.       BackStyle       =   0  'Transparent
  86.       BeginProperty Font 
  87.          Name            =   "MS Sans Serif"
  88.          Size            =   9.75
  89.          Charset         =   0
  90.          Weight          =   400
  91.          Underline       =   0   'False
  92.          Italic          =   0   'False
  93.          Strikethrough   =   0   'False
  94.       EndProperty
  95.       ForeColor       =   &H8000000E&
  96.       Height          =   255
  97.       Index           =   1
  98.       Left            =   240
  99.       TabIndex        =   10
  100.       Top             =   3360
  101.       Width           =   4935
  102.    End
  103.    Begin VB.Label Label6 
  104.       Alignment       =   2  'Center
  105.       BackStyle       =   0  'Transparent
  106.       Caption         =   "National  Directory      www.555-1212.com"
  107.       BeginProperty Font 
  108.          Name            =   "MS Sans Serif"
  109.          Size            =   9.75
  110.          Charset         =   0
  111.          Weight          =   400
  112.          Underline       =   0   'False
  113.          Italic          =   0   'False
  114.          Strikethrough   =   0   'False
  115.       EndProperty
  116.       ForeColor       =   &H8000000E&
  117.       Height          =   255
  118.       Index           =   0
  119.       Left            =   240
  120.       TabIndex        =   9
  121.       Top             =   3000
  122.       Width           =   7335
  123.    End
  124.    Begin VB.Label Label5 
  125.       Alignment       =   2  'Center
  126.       BackStyle       =   0  'Transparent
  127.       Caption         =   "Web Developement     www.Artezia.com"
  128.       BeginProperty Font 
  129.          Name            =   "MS Sans Serif"
  130.          Size            =   9.75
  131.          Charset         =   0
  132.          Weight          =   400
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       ForeColor       =   &H8000000E&
  138.       Height          =   255
  139.       Left            =   240
  140.       TabIndex        =   8
  141.       Top             =   2640
  142.       Width           =   7335
  143.    End
  144.    Begin VB.Label Label4 
  145.       Alignment       =   2  'Center
  146.       BackStyle       =   0  'Transparent
  147.       Caption         =   "Restaurants in middle TN.    www.theRestaurants.com"
  148.       BeginProperty Font 
  149.          Name            =   "MS Sans Serif"
  150.          Size            =   9.75
  151.          Charset         =   0
  152.          Weight          =   400
  153.          Underline       =   0   'False
  154.          Italic          =   0   'False
  155.          Strikethrough   =   0   'False
  156.       EndProperty
  157.       ForeColor       =   &H8000000E&
  158.       Height          =   255
  159.       Left            =   240
  160.       TabIndex        =   7
  161.       Top             =   2280
  162.       Width           =   7335
  163.    End
  164.    Begin VB.Label Label3 
  165.       Alignment       =   2  'Center
  166.       BackStyle       =   0  'Transparent
  167.       Caption         =   "Downloads       www. Download.com    "
  168.       BeginProperty Font 
  169.          Name            =   "MS Sans Serif"
  170.          Size            =   9.75
  171.          Charset         =   0
  172.          Weight          =   400
  173.          Underline       =   0   'False
  174.          Italic          =   0   'False
  175.          Strikethrough   =   0   'False
  176.       EndProperty
  177.       ForeColor       =   &H8000000E&
  178.       Height          =   255
  179.       Left            =   240
  180.       TabIndex        =   6
  181.       Top             =   1920
  182.       Width           =   7335
  183.    End
  184.    Begin VB.Label Label2 
  185.       Alignment       =   2  'Center
  186.       BackStyle       =   0  'Transparent
  187.       Caption         =   "Dilbert     www.unitedmedia.com"
  188.       BeginProperty Font 
  189.          Name            =   "MS Sans Serif"
  190.          Size            =   9.75
  191.          Charset         =   0
  192.          Weight          =   400
  193.          Underline       =   0   'False
  194.          Italic          =   0   'False
  195.          Strikethrough   =   0   'False
  196.       EndProperty
  197.       ForeColor       =   &H00FFFFFF&
  198.       Height          =   255
  199.       Left            =   240
  200.       TabIndex        =   5
  201.       Top             =   1560
  202.       Width           =   7335
  203.    End
  204.    Begin VB.Label Label1 
  205.       BackColor       =   &H00800000&
  206.       Caption         =   $"Frmweb.frx":0BDC
  207.       ForeColor       =   &H00FFFFC0&
  208.       Height          =   975
  209.       Left            =   360
  210.       TabIndex        =   4
  211.       Top             =   240
  212.       Width           =   5655
  213.    End
  214. End
  215. Attribute VB_Name = "Frmweb"
  216. Attribute VB_GlobalNameSpace = False
  217. Attribute VB_Creatable = False
  218. Attribute VB_PredeclaredId = True
  219. Attribute VB_Exposed = False
  220. Option Explicit
  221. Private Sub CmdDilbert_Click()
  222. Dim Pos As Integer
  223. Dim Pos2 As Integer
  224. Dim Bilden() As Byte
  225. Dim NrString As String
  226. On Error GoTo bottom
  227. Text1.Text = Inet1.OpenURL("http://www.unitedmedia.com/comics/dilbert/archive/")  'Download the page.
  228. Pos = InStr(1, Text1.Text, "/comics/dilbert/archive/images/dilbert")
  229. Pos2 = InStr(Pos, Text1.Text, ".gif")
  230. NrString = Mid(Text1.Text, Pos, Pos2 - Pos)
  231. Text1.Text = "http://www.unitedmedia.com" + NrString + ".gif" ' Debug filename
  232. Bilden() = Inet1.OpenURL("http://www.unitedmedia.com" + NrString + ".gif", icByteArray) ' Download picture.
  233. Open "C:\dilbert.gif" For Binary Access Write As #1 ' Save the file.
  234. Put #1, , Bilden()
  235. Close #1
  236. Picture1.Picture = LoadPicture("c:\dilbert.gif") 'Reload it to PictureBox
  237. SavePicture Picture1.Picture, "c:\dilbert.bmp" 'Converted to bmp..
  238. Call SystemParametersInfo(20, 0, "c:\dilbert.bmp", 1) 'Change the wallpape